home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / forth2.arc / SAMPLE.BLK < prev   
Text File  |  1985-03-27  |  10KB  |  1 lines
  1.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 εADM-AT                                              TEST      ε EMIT ASCII = EMIT 32 + EMIT  32 EMIT                         εDM-DARK                                                       εNTROL Z EMIT;                                                 εM-3A                                                          ε] .ALL IS .SCREEN                                             ε] ADM-AT IS AT                                                ε] ADM-DARK IS DARK                                            ε] NOOP IS -LINE                                               ε] (BLOT) IS BLOT;                                             εM-3A                                                                                                                                                                                                                                                          εURSOR ROUTINES FOR AN ADM-3A TERMINAL                         εITOR DEFINITIONS